home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 April: Mac OS SDK / Dev.CD Apr 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / AIncludes / Folders.a < prev    next >
Encoding:
Text File  |  1996-01-24  |  2.7 KB  |  91 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Folders.a
  3. ;
  4. ;    Contains:    Folder Manager Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Package:    Universal Interfaces 2.2 in “MPW” on ETO #20
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__FOLDERS__') = 'UNDEFINED' THEN
  21. __FOLDERS__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27. ;        include 'ConditionalMacros.a'                                ;
  28.  
  29.     IF &TYPE('__FILES__') = 'UNDEFINED' THEN
  30.     include 'Files.a'
  31.     ENDIF
  32. ;        include 'MixedMode.a'                                        ;
  33. ;        include 'OSUtils.a'                                        ;
  34. ;            include 'Memory.a'                                        ;
  35. ;        include 'Finder.a'                                            ;
  36.  
  37. kOnSystemDisk                    EQU        $8000
  38. kCreateFolder                    EQU        true
  39. kDontCreateFolder                EQU        false
  40. kSystemFolderType                EQU        'macs'                ; the system folder 
  41. kDesktopFolderType                EQU        'desk'                ; the desktop folder; objects in this folder show on the desk top. 
  42. kTrashFolderType                EQU        'trsh'                ; the trash folder; objects in this folder show up in the trash 
  43. kWhereToEmptyTrashFolderType    EQU        'empt'                ; the "empty trash" folder; Finder starts empty from here down 
  44. kPrintMonitorDocsFolderType        EQU        'prnt'                ; Print Monitor documents 
  45. kStartupFolderType                EQU        'strt'                ; Finder objects (applications, documents, DAs, aliases, to...) to open at startup go here 
  46. kShutdownFolderType                EQU        'shdf'                ; Finder objects (applications, documents, DAs, aliases, to...) to open at shutdown go here 
  47. kAppleMenuFolderType            EQU        'amnu'                ; Finder objects to put into the Apple menu go here 
  48. kControlPanelFolderType            EQU        'ctrl'                ; Control Panels go here (may contain INITs) 
  49. kExtensionFolderType            EQU        'extn'                ; Finder extensions go here 
  50. kFontsFolderType                EQU        'font'                ; Fonts go here 
  51. kPreferencesFolderType            EQU        'pref'                ; preferences for applications go here 
  52. kTemporaryFolderType            EQU        'temp'
  53.  
  54.     IF SystemSevenOrLater  THEN
  55. ;
  56. ; pascal OSErr FindFolder(short vRefNum, OSType folderType, Boolean createFolder, short *foundVRefNum, long *foundDirID)
  57. ;
  58.     IF ¬ GENERATINGCFM THEN
  59.         Macro
  60.         _FindFolder
  61.             moveq    #0,d0
  62.             dc.w     $A823
  63.         EndM
  64.     ELSE
  65.         IMPORT_CFM_FUNCTION    FindFolder
  66.     ENDIF
  67.  
  68.     ELSE
  69. ;
  70. ; pascal OSErr FindFolder(short vRefNum, OSType folderType, Boolean createFolder, short *foundVRefNum, long *foundDirID)
  71. ;
  72.     IF GENERATINGCFM THEN
  73.         IMPORT_CFM_FUNCTION    FindFolder
  74.     ENDIF
  75.  
  76.     ENDIF
  77. ;
  78. ; pascal OSErr ReleaseFolder(short vRefNum, OSType folderType)
  79. ;
  80.     IF ¬ GENERATINGCFM THEN
  81.         Macro
  82.         _ReleaseFolder
  83.             moveq    #11,d0
  84.             dc.w     $A823
  85.         EndM
  86.     ELSE
  87.         IMPORT_CFM_FUNCTION    ReleaseFolder
  88.     ENDIF
  89.  
  90.     ENDIF ; __FOLDERS__
  91.